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INTRODUCTION 



PUFFT is a very fast translator for the FORTRAN IV language described in 
the IBM document C28-6390, Version 13 FORTRAN IV language. It is a 'tone-pass 
compile-and-go" system which reads a FORTRAN IV program and compiles it into 
machine language written directly into the IBM 703k computer memory. 

The technique used in PUFFT necessitates introducing a few minor differ- 
ences from the IBM FORTRAN IV. Most of the differences should not concern the 
average user at all. The mos t important diffdfcMqgf concerns the ordering of 
certain statements. For example, in prog ran^-ij^flfc DIMENSION, COMMON , and EQUI- 
VALENCE statements, all the DIMENSION statentofci m«t appear before all the 
COMMON statements, which in turn must appea r^TOf ore all the EQUIVALENCE state- 
ments. The section of this manual on sequencing rules contains full details. 
PUFFT detects any violation of the sequencing rules and prints an error message 
on the program listing. 

PUFFT accepts only FORTRAN IV source decks. It neither produces nor accepts 
binary decks. 



PROGRAM SIZE 

PUFFT is designed to handle short to medium length programs. It is diffi- 
cult to give exact size limitations, but a good rule of thumb is that PUFFT jobs 
should contain no more than about 1500 source language statements and should use 
no more than 3000 words of storage for arrays. If a program exceeds the storage 
limitation of PUFFT, a diagnostic message is written, and execution is deleted. 



SEQUENCING RULES 

A. The following statements, if they appear in a program, must appear before any 
executable statements and in the order indicated: 

1. Type and DIMENSION. 

Type includes COMPLEX, DOUBLE PRECISION, INTEGER, REAL, 
and LOGICAL. There is no ordering requirement among the 
t^e and DIMENSION statements. 

2. COMMON. 

Labelled and blank COMMON may be intermixed according to 
FORTRAN IV rules. 

3. EQUIVALENCE. 

4. DATA. 

This refers to the DATA statement as defined in the 
FORTRAN IV manual.- 

5. Arithmetic statement function definitions. 
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B. The statements ENJRY^ RETURaV EXTERNAL, and FORMAT are included among 
the mmo a tablW^gftBSmen ts for the purposes of these sequencing rules. 

C. Only one of the statements FUNCTION, SUBROUTINE, and BLOCK DATA may 
appear in any one subprogram. Such a statement must be the first state- 
ment in the subprogram. 

D. The statement END must be the last statement of each subprogram. It is 
translated as a RETURN in subroutines or functions and as a STOP in the 
main program. 

i 

E. A BLOCK DATA subpnjffranMpt enters data into a block of labelled COMMON 
must appear ahead oT ariy*ajther subprogram in which that block of labelled 
COMMON is declared. 

F. A NAMELIST statement, if it is used, must appear among the executable 
statements of a program, and must precede any use of the name being defined. 



INPUT/OUTPUT 

PUFFT uses the standard tape assignments of Version 13 FORTRAN IV. Logical' 
unit 5 is the system input tape and unit 6 is the system output tape. No other 

units are available. 

• • . ,-.» 

.READ n, L and PRINT n, L use the system input and output units and are the 
preferred statement forms: 

READ n, L is equivalent to READ(5,n)L 
PRINT n, L is equivalent to WRITE(6,n)L 

■ 

PUFFT accepts quote marks around Hollerith fields in FORMAT statements. 
During compilation the field is translated into a standard Hollerith field. For 
example: 

•BCD DATA' is translated to: 008HBCD DATA 

The quote mark appears on most keypunches as either a quote mark (') or at 
sign (<•£>). It is the k-8 punch combination. Quote marks ar not permitted in 
formats read in at execution time or created with DATA statements. 

SYSTEM FUNCTIONS AND SUBROUTINES 

The PUFFT system includes all the standard FORTRAN IV subroutines and func- 
tions mentioned in Chapter 5 of the Version 13 FORTRAN IV manual, except ERF, 
GAMMA and ALGAMA. PUFFT includes the built-in functions of figure 8 of that 
manual, the mathematical subroutines of figure 9 of that manual, and subroutines 
such as DUMP and PDUMP mentioned elsewhere in that chapter. DUMP and PDUMP in 
particular are especially useful for program debugging. 
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PUFFT contains the three machine dependent functions AND, OR, end COMPL, 
es well es corresponding Integer functions IANO, IOR,-and ICQMPL, documented 
in Appendix H of the IBM manual. 

Two subroutines provide dete end time information: 

CALL DATE (A) 

returns to A the current dete (month, dey, year) as e BCD word: 
MMDDYY 
CALL CLOCK (A) 

returns to A the current time (hours, minutes, seconds) as a BCD word: 
HHMMSS 

For exemple, December II, 1970 at 7:kS:2k pm is: 

121170 194624 
Mote that 2k hour time is used. 

Another PUFFT system function is RECDIS, e rendom number generator. It is 
designed to supply pseudo- random floating point numbers with e rectangular distri- 
bution in the interval (0,1). Successive numbers in the sequence are supplied 
as the values of the function RECDIS(X). X is e dummy verieble, and any variable 
name may be used in its place. Thus the statement A - RECDIS (X) pieces the next 
random number in A. The stetement sequence: 

DO 5 1-1, 1000 
5 A(I) - RECDIS(X) 

generetes a table of 1000 rendom numbers in the array A. 

The rendom numbers are generated by multiplying a number called RANDOM by 
the constant 5**15 (30,517,578,125). The result is e new velue of RANDOM which 
is then used a* the multiplier in generating the next random number. The system 
initially sets RANDOM to the seme velue as the multiplying constant (5**15), but 
the user may select a different value of the initial multiplier by the statement: 

CALL ST0RNM (integer) 

where "integer" is any positive odd integer less than 2**35, and greeter than one. 
The current value of the multiplier RANDOM may be retrieved by the statement: 

CALL GETNM(L) 

which places into L the value of RANDOM that will next be used as a multiplier. 
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SPECIAL FEATURES OF PUFFT 



A. Subscript Checking 

A standard option of PUFFT compilation Is the generation of code to check 
the values taken on by subscripts during execution of the object program. Each 
place a subscripted array reference is made in the source program, code is gen- 
erated to check the values of the subscripts against the dimensions declared 
for the array. If a subscript is outside its declared range, a diagnostic is 
printed and execution i&OAttinated. 

Actually, only ifltfe Mil address computed for an array element lies out- 
side the bounds of the Ipfffam an error detected. Thus a single subscript in a 
multiply subscripted array may be greater than its declared maximum without gen- 
erating an error. The inclusion of the subscript checking feature adds one cell 
of object code and causes several extra instructions to be executed for each 
subscripted array reference in the program. For most programs, however, the 
checking adds a valuable debugging aid. 



B. Address Checking 

Several other types of address checking are also normally made by the PUFFT 
system. These provide checking on such items as incorrect number of arguments 
on function and subroutine calls, errors in specifying dummy routines, and attempts 
to store data over code. 



C. Resident Subprogram Library 

A library of numerical analysis and other routines is maintained with the 
PUFFT system. These routines are taken from SHARE, from the Purdue FORTRAN sub- 
routine library, from the library of the Nuclear Division of Union Carbide Corp- 
oration at Oak Ridge, Tennessee, and from several other sources. A list of 
available routines (LO-PUFTLIB) and their descriptions may be obtained at the 
Document Station. 

No special action is required to use these subroutinss„and functions. After 
compiling the user's source deck, PUFFT references the library for any undefined 
subprogram name. Any time it finds one, the message: 

**0** name COMPILED FROM LIBRARY 

is written, giving the name of the routine. No source listing or map is produced 
for these routines, although the object code listing, if requested, will include 
their object code. 

The library is fluid, and other FORTRAN IV routines, such as special routines 
required for class assignments, may be included by arrangement with the Computing 
Center Librarian. 
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D. Hollerith Constants 



As indicated in the section on input/output, Hollerith strings enclosed 
in quote marks C+-3 punch) may be used in format statements. Hollerith constants 
may also be enclosed in quote marks in the other places they are valid: DATA 
statement values and parameters in subroutine CALL statements: 

'THIS IS' 

is the same as 

7HTHIS IS 



E. ANSI Standard FORTRAN Coayatibi 1 i ty 

The PUFFT compiler meets or exceeds the American National Standards Institute 
(ANSI) Fortran Standard (X3.9-1966), with the fol lowiqfl, adaptions: 

V: 

1. The G-specification in input/output format lists is not 
supported, 

» * /* 

2. The real and double precision constant forms: 

where nnnn is a string of digits, possibly preceded by 
a sign, and ee is any valid exponent, are not supported. 

PUFFT requires that there be a decimal point 
somewhere before the E or 0. 

Variations from the ANSI FORTRAN Standard within the .rules of IBM 709* FORTRAN 
IV. as modified by this guide, are not indicated. 

COMPIUTION 4ND EXECUTION OiffPlfT 

A PUFFT run normally produces a listing of the source language program and 

of all diagnostic messages produced during the run. As discussed in the section on 

control cards, the source listing may be totally or partially suppressed, but the * 
diagnostic messges may never be suppressed. 

PUFFT provides many diagnostic messages in response to source language errors, 
and some in response to run time errors. A severity code is associated with each 
source language diagnostic message. Messages with severity code 0 are comments to 
the programmer and do not normally mean an error has occurred. Messages with sev- 
erity codes I and 2 are warnings, and messages with severity code 3 indicate fatal 
errors that result In deletion or termination of execution. 

To the right of each line of the source language listing is an octal number 
that corresponds to an address in the object program listing when the LIST option 
is invoked. For those source program language statements for which code is gen- 
erated, this address is the starting address of that code. Because of the com- 
piling technique, the first executable statement following a DATA statement normally 
has an incorrect address. The address of the first DATA statement in the program is 
the correct address for this statement. 
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2. MAP 



This option causes the name end absolute address of all variables and arrays 
to be listed after each subprogram, and the names and starting addresses of all 
subprogram and common blocks to be listed after the last subprogram. The option 
is invoked by the LIST and DUMP options. 



3. LIST 

This option produces a full listing of ithe object code and causes the MAP 
option to be invoked. The listing has mnem6i!B!kafe<**octal instructions and octal 
addresses. 

The correspondence between source statements and object code produced is 
discussed in the section on PUFFT output. The use of this option increases pro- 
cessing time significantly, and it should be used only when needed. 



k. DUMP-0ctl,0ct2,C 

This option causes an area of computer memory to be dumped if the program is 
terminated for any reason other than a STOP, CALL EXIT, or CALL DUMP statement 
being executed or an end-of-file being read. The area of memory dumped is between 
the octal locations "Octl" and "0ct2 M inclusive, and the mode of the dump is de- 
termined from "C" as follows: 

C-0 Octal 

C-l Floating point 

C-2 Integer 

C-3 Octal with mnemonic instructions 

The dump always produces full lines that start with a cell whose octal address 
ends with "0". The DUMP option also causes the MAP option to be invoked. 



5. TABLE-N 

This option, used with an integer N from one through six, permits the size 
of the PUFFT name table to be altered to 2**(Rf7) words. If the option is not 
present, the table size is 4096 (*-5). 

An increase in the size of the name table may permit PUFFT to run a program 
that otherwise gets the name-table-overflow diagnostic. It also increases the 
amount of space available for blank common storage. An increase in the table size, 
however, increases the room available for the compiled program. Conversely, a 
decrease ir the size of the name table may permit PUFFT to run a program that other- 
wise runs oit of space. 
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6. NOCHK 

This option eliminates execution time checking of subscripts and other 
addresses discussed under special features of PUFPT. 



C. The SOPTIONS Card 

If the first form of the PUFFT card (without options) is used, a $0PTI0NS 
card may be used to specftttJto.ions , if desired. The format of the card is: ^ 

001 ' $OPTIONS( optijf ) 

The list of options is the same as indicated for the PUFFT card. 

If options are specified on the PUFFT card, the system generates a $PUFFT 
card. Only one $PUFFT or $0PTI0NS card is permitted for each job. 



D. The SLIST and jUNLIST Cards 

These control cards permit the user to control listing of the source program. 
The $UNLIST card suppresses listing of the source program until the n*xt $LIST 
card is encountered. Error messages will not be suppressed, nor do these cards 
in any way affect the listing of the object program produced by the LIST option 
on the PUFFT card. Unless the SUNLIST card is used, the entire source program is 
listed. These cards may appear anywhere in the input program deck. 



E. Other $- Control Cards 

- 

The PUFFT system considers any card with a $ in column 1 to be a control card. 
This is for compatibility with other IBM 703k systems. All control cards other 
than those recognized are ignored by PUFFT, with a warning message. 



DECK STRUCTURE 

Decks to be run under the PUFFT system are set up in the following order: 

1. The job card. 

2. The PUFFT card. 

3. 7/8/9 end-of- record (EOR) card. This card has 7. 8, and 9 
rows multi punched in column one. 

00 The $0PTI0NS card, if used. 

5. The FORTRAN IV program, following PUFFT rules. 

(6) Another 7/8/9 EOR card if there are any data cards. 

(7) Data cards, if any. _ 

8. 6/7/8/9 end-of- information ( Jl) card. This card has 
6, 7, 8, and 9 rows multipunched in column one. It 
must be the last card of the deck. 

A number in parentheses indicates an optional Item. All others are required. 
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Example 1. Standard PUFFT job using default time limit and standard- 
options: 




DATA CARDS 



1£3. 456 

eRFTTf record card 



PUFFT FORTRAN IV PROGRAM 



REAL MIC KEY" 

7/8/9 END OF RECORD CARD 




PUFFT. 



??7??9 TLC. 



Example 2. Using a 16 second time limit and the MAP option, without 
data cards: 



PUFFT FORTRAN IV PROGRAM 




TTdN CAftfi 



REAL MOUSE 

^7/8/9 END OF RECORD CARD 




ffUFFTCMftP) 
/ff77?f TLC1TI6. 



Example 3. Using a 16 second time limit and the DUMP option specified 
on a $OPTIONS card: 



t/7Jft/9 END I* MtUKHAIION CAkU 




DATA CARDS 



3. 1415936 

Z7/8/9 END OF RECDRD CARD 





PUFFT FORTRAN IV PROGRAM 

73T 



LC>T16. 
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